Option Explicit
Sub I_Sample010()
   'ոI_Data01 / I_Data02
    Dim mySht1 As Worksheet
    Dim mySht2 As Worksheet
    Dim i      As Long
    Set mySht1 = Worksheets("I_Data01")		'ƪ
    Set mySht2 = Worksheets("I_Data02")    		'榡
    With mySht2
        For i = 2 To 11
            mySht1.Cells(i, 1).Resize(, 9).Copy .Cells(14, 1)
            .PrintPreview
        Next
    End With
    Set mySht1 = Nothing				'
    Set mySht2 = Nothing
End Sub
